(defun maybe-url-filename (thing)
  (if (keywordp thing)
      (uri-of-standard-ontology thing)
      (if (or (pathnamep thing)
	      (not (or 
		    (eql 0 (search "file://" thing))
		    (eql 0 (search "http://" thing)))))
	  (concatenate 'string "file://" 
		       (#"replaceAll" 
			(#"replace" (namestring (truename thing)) "C:" "")
			"\\\\" "/"))
	  thing)))

(create-external-derived
 :kb (load-ontology "/Users/alanr/repos/bodily/src/ontology/salo-external.owl") 
 :templates-path "/Users/alanr/repos/obi/tools/external-templates.txt"
 :output-path "/Users/alanr/repos/bodily/src/ontology/salo-external-derived.owl"
 :ontology-uri "http://purl.obolibrary.org/obo/salo/external-derived.owl")